object MainForm: TMainForm
  Left = 315
  Top = 131
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Disk Management System - Shareware'
  ClientHeight = 259
  ClientWidth = 427
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  PixelsPerInch = 120
  TextHeight = 16
  object Label1: TLabel
    Left = 136
    Top = 56
    Width = 163
    Height = 20
    Caption = 'File Attribute Manager'
    Font.Color = clNavy
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 144
    Top = 88
    Width = 135
    Height = 20
    Caption = 'Simple Text Editor'
    Font.Color = clNavy
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 176
    Top = 152
    Width = 66
    Height = 16
    Caption = 'Version 1.0'
    Font.Color = clPurple
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 120
    Top = 120
    Width = 200
    Height = 20
    Caption = 'Directory and File Manager'
    Font.Color = clNavy
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 180
    Width = 427
    Height = 60
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object ExitBtn: TBitBtn
      Left = 168
      Top = 8
      Width = 75
      Height = 41
      Caption = 'E&xit'
      TabOrder = 0
      OnClick = Exit1Click
      Kind = bkCancel
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 427
    Height = 49
    Align = alTop
    BevelOuter = bvLowered
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object AttributesButton1: TSpeedButton
      Left = 8
      Top = 8
      Width = 73
      Height = 35
      Hint = 'File Attributes'
      Caption = 'Attributes'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = FileAttributes1Click
    end
    object EditorButton: TSpeedButton
      Left = 88
      Top = 8
      Width = 57
      Height = 35
      Hint = 'Text Editor'
      Caption = 'Editor'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = TextEditor1Click
    end
    object DirectoryButton1: TSpeedButton
      Left = 152
      Top = 8
      Width = 145
      Height = 33
      Hint = 'Directory and File Manager'
      Caption = 'Directory and Files'
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = DirectoryButton1Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 240
    Width = 427
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 128
    object File1: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object Exit1: TMenuItem
        Caption = 'E&xit'
        ShortCut = 0
        OnClick = Exit1Click
      end
    end
    object Applications1: TMenuItem
      Caption = 'A&pplications'
      ShortCut = 0
      object FileAttributes1: TMenuItem
        Caption = 'F&ile Attributes'
        ShortCut = 0
        OnClick = FileAttributes1Click
      end
      object TextEditor1: TMenuItem
        Caption = 'T&ext Editor'
        ShortCut = 0
        OnClick = TextEditor1Click
      end
      object DirectoryFileManager1: TMenuItem
        Caption = 'Directory & File M&anager'
        ShortCut = 0
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object Contents1: TMenuItem
        Caption = 'Help &Topics'
        ShortCut = 0
        OnClick = Contents1Click
      end
      object About1: TMenuItem
        Caption = '&About...'
        ShortCut = 0
        OnClick = About1Click
      end
    end
  end
end